home *** CD-ROM | disk | FTP | other *** search
- { --------------------------------------------------------------------------- }
- { GMTEST.PAS Sample program demonstrating usage of gMouse unit. }
- { }
- { Copyright(c) 1994 by B-coolWare. Written by Bobby Z. }
- { --------------------------------------------------------------------------- }
-
- uses g_Mouse, Crt;
-
- function stUpcase( S : String ) : String; assembler;
- asm
- les di,@Result
- push ds
- lds si,S
- cld
- lodsb
- mov cl,al
- sub ch,ch
- stosb
- jcxz @@Q
- @@1:
- lodsb
- cmp al,'a'
- jb @@2
- cmp al,'z'
- ja @@2
- and al,0DFh
- stosb
- @@2:
- loop @@1
- @@Q:
- pop ds
- end;
-
- {$I SHAPES.INC}
-
- const
- doFlip : Boolean = True;
-
- var
- SaveANDMask,
- SaveORMask : array[0..15] of Byte;
-
- begin
- WriteLn('g_Mouse Test Version 1.50.7 Copyright(c) 1993,94 by B-coolWare.');
- WriteLn;
- WriteLn('Move mouse around and enjoy the pointer. Press a key to exit...');
- if ParamCount > 0 then
- if stUpcase(ParamStr(1)) = 'NOFLIP' then
- doFlip := False;
- InitGMouse(doFlip);
- GetPointerShape(SaveANDMask, SaveORMask);
- SetPointerShape(SandClockANDMask, SandClockORMask);
- asm
- mov ax,1
- int 33h
- end;
- repeat
- until KeyPressed;
- ReadKey;
- SetPointerShape(SaveANDMask, SaveORMask);
- repeat
- until KeyPressed;
- ReadKey;
- end.
-